home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / prtrep41 / demo1.pa_ / demo1.bin
Encoding:
Text File  |  1996-09-15  |  1.2 KB  |  62 lines
  1. unit Demo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, Buttons, DBTables, Grids,
  8.   ExtCtrls, Printers, PrnGridR;
  9.  
  10. type
  11.   TDemo1Form = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     Panel1: TPanel;
  14.     DataSource1: TDataSource;
  15.     Panel2: TPanel;
  16.     Table1: TTable;
  17.     Table1CustNo: TFloatField;
  18.     Table1Company: TStringField;
  19.     Table1City: TStringField;
  20.     Table1Country: TStringField;
  21.     Table1Phone: TStringField;
  22.     Label1: TLabel;
  23.     Label2: TLabel;
  24.     Label3: TLabel;
  25.     PreView: TBitBtn;
  26.     Exit: TBitBtn;
  27.     PrintGridReport1: TPrintGridReport;
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure PreViewClick(Sender: TObject);
  30.     procedure ExitClick(Sender: TObject);
  31.   private
  32.     { private declarations }
  33.   public
  34.   end;
  35.  
  36. var
  37.   Demo1Form: TDemo1Form;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TDemo1Form.FormCreate(Sender: TObject);
  44. begin
  45.   Table1.Open;
  46. end;
  47.  
  48.  
  49. procedure TDemo1Form.PreViewClick(Sender: TObject);
  50. begin
  51.    PrintGridReport1.Execute;
  52. end;
  53.  
  54.  
  55. procedure TDemo1Form.ExitClick(Sender: TObject);
  56. begin
  57.    Close;
  58. end;
  59.  
  60.  
  61. end.
  62.